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Kk 1 
LISTJOUR List a journal file 16-Sep-19 90:10:08 AX-11 Bliss-32 V4.0-74 Page 1 
14-Sep-1984 11:55: BACKUP. SRCJLISTJOUR.B32;1 (1) 
1 1 MODULE LISTJOUR (X%TITLE ‘List a journal file’ 
§ ¢ IDENT = ‘'V04-000 
44 dz 
4 004 BEGIN 
2 b08 | 
8 007 1 i eeeeeeeeeeeeeareeeeeeeeeeneeeerenetereeeereereeereereeeeeneeeeeeeeeeeeeeeeee 
8 0008 1 !*# * 
y 0009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY « 
10 0010 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
1) pots : ALL RIGHTS RESERVED. . 
ig oO18 1 i THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
14 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
15 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
16 Boig 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
17 001 1 !® OT PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
8 sid : in TRANSFERRED. : 
it 
20 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
21 ope) 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
$8 83 ¢ : .? CORPORATION. ‘ 
i 
$¢ Higa 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
5 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
35 0097 | is 
28 0028 #1 i eee eeeeeeeeeeeeeeeeeeeeeeeeReeeeeeeeeeeeteneeeeeeeeeeeaeeeeeteeeneeeeneeeee 
9 0029 1! 
f OBE 
32 0052 1 | FACILITY: 
$2 Oosz ' } Backup/Restore 
35 0035 1 | ABSTRACT: : : 
$$ ORS : : This module contains the routines that List a journal file. 
M4 $038 1 | ENVIRONMENT: 
39 0039 1! VAX/VMS user mode. 
tf doer yi 
42 0048 ! AUTHOR: M. Jack, CREATION DATE: 10-Apr-1981 
44 0044 1 MODIFIED BY: 
46 0046 1 | v03-003 LY0490 Larry Yetto. 21-MAY-1984 16:12 
34 984 : Modify code to allow long directory names to be output. 
49 0049 1! VO03-002 L¥0464 Larry Yetto 1-FEB-1984 10:39 
50 0050 1! Add support for journal file structure level 2. This new 
51 0051 1! format add a flag longword to each file entry to enable us 
2g O3¢ 7% to flag the fact that only a file header was saved for a 
27 bez : particular file. 
55 0055 1: v03-001 ACG0313 Andrew C. Goldstein, 12-Feb-1983 16:23 
2$ 6038 : } Add routine subtitles 
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v02-002 MLJ0036 
Change calling sequence to MATCH rout 


Martin L. Jack, 28-Au 
i 
! v02=001 MLJ0025 Mar 
! 


Implement sotective eal Listi 


pata 
ee a oo oy 


? 


-1981 
ne. 


nl. Jack, ae 
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BACKUP.SRCJLI 


17:38 


13:36 
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OUR .643; 


i1 


a a5 
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"1 
LIST List a journal file 16-Sep-1984 00:10: AX-11 Bliss-32 V4.0-74 P 
UbStapyr 1oxgen- 1382 90:19:08 are sats ist ioun .63551 = 


67 0 1 REQUIRE ‘SRC$:COMMON'; 
68 1172 1 LIBRARY ‘SYS$LIBRARY: STARLET’; 
9 1175 1 REQUIRE ‘LIBS:BACKDEF'; 
0 16 1 
71 1624 1 
7 1625 4% LINKAGE 
7 16 § 1 L_P$ = CALL: GLOBAL (P$=11); 
74 16 1 
75 1628 1 
76 1629 1 MACRO 
a4 1? ? ; L_DECL = EXTERNAL REGISTER P$ = 11: REF VECTOR 2; 
79 16 ¢ 1 
80 16 1 FORWARD ROUTINE ‘ 
3) 1634 1 SELECT FILE, ! Evaluate selection criteria 
5g i? 2 ! LIST_JOURNAL: NOVALUE; ! Driver for journal file Listing 
84 1839 1 
85 1638 1 EXTERNAL ROUTINE 
86 1639 1 CH, ! Match file specifications 
87 1640 1 OPEN_JOURNAL: NOVALUE, ! Open a a file 
88 1641 1 READ JOURNAL , ! Read a journal record 
89 1otg 1 CLOSE JOURNAL: NOVALUE, ! Close a journal file 
90 1643 1 LIST_FAO: L_P$ NOVALUE, ! Add information to Line buffer 
91 1644 1 LIST_EOL: L_P$ NOVALUE; ! Write Line buffer to Listing file 
38 1645 1 
4 1646 1 ; 
94 1647 1 GSDEFINE(); ! Define global common area 
95 1648 1 
96 1649 1 
97 1650 1 MACRO 
98 m 1651 1 FAO_(A)= 
99 4 1636 1 FAO( 
100 ™ 1653 1 OPLIT BYTE (XASCIC A) 
101 1654 1 ZIF NOT ZNULL(ZREMAINING) Z%THEN , %FI XZREMAINING) %, 
108 1655 1 
10 1656 1 
104 m 1657 1 EOL_(A)= 
105 1658 1 LIST_EOL() 2%; 
106 1659 1 
107 1660 1 
108 1661 1 MACRO 
109 1o96 1 -LIST_DESC= P$COJ %, ! Descriptor for buffer 
110 16635 1 LIST BUFFER= PS$(2) %, ' Listing buffer 
111 1664 1 CIST_BESc w= VECTORC_LIST_DESC.NJ 2%; 
6 1665 1 
11 1666 1 
114 1667 1 LITERAL 
115 1668 1 P$SIZE= 2 + CHSALLOCATION(LIST_SIZE); 
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N 1 
LIST List a journal file 16-Sep-1984 00:10: AX-11 Bliss-32 V4.0-74 Page 4 
Lhe 000" SELECT_FILE = select file from journal 1e-8ep-19 4 90:39:08 BACKUP SREILISTVOUR.03551 . (3) 
s S07 1668 1 SSBTTL "SELECT_FILE = select file from journal’ 
: 118 ion : ROUTINE SELECT_FILE (NAME ,CREDATE)= 
: 120 1678 1 t+ 
: 121 1675 1! 
ee ¢ 1674 1 ! FUNCTIONAL DESCRIPTION: ¢ 
is 1% 1675 1! This routine evaluates the selection criteria for a file specification 
's 126 1676 1! retrieved from a journal file. 
3 125 1677 1! 
‘3; 126 1678 1°! INPUT PARAMETERS: ’ 
is 12? 1679 1! NAM - Descriptor for file specification ‘[dirjJnam.typ;ver"’. 
lg ; 1989 : } CREDATE - Pointer to quadword time value. 
is 150 loss 1 ! IMPLICIT INPUTS: 
i; 131 1683 1! NONE 
is 1 ; 1684 1! 
ls 13 1685 1 ! OUTPUT PARAMETERS: 
is 134 1686 1! NONE 
is 135 1687 1! 
is 136 1688 1°! IMPLICIT OUTPUTS: 
is 137 1689 1! NONE 
i; 138 1690 1! 
i; 139 1691 1 =! ROUTINE VALUE: : : A : 
ls Hs 1698 ’ True if the file specification is selected, false otherwise. 
is a | 1694 1 ! SIDE EFFECTS: 
13 16 1695 1! NONE 
(3 (166 1696 1! 
's 165 1697 1 !-- 
3; 146 1698 1 
is 167 1699 2 BEGIN 
: 148 1700 § MAP 
; 169 1701 CREDATE: REF VECTOR; 
: 150 1702 2 
3: 191 1703 § 
3 136 1704 ! BEFORE 
; 5 1705 § ! 
13 . 154 1706 IF .QUALCQUAL_BEFO] AND NOT .QUALCQUAL_BEFO_BACK] 
; 155 1707 THEN 
: 156 1708 GIN 
ee 1709 IF .CREDATEC1] GTRU .VECTORCQUALCQUAL_BEFO_VALUE], 1] THEN RETURN FALSE; 
3 > Ht 4 3 4 -CREDATEC1) EQLU .VECTORCQUALCQUAL_BEFO_VALUEJ, 1] AND .CREDATECOJ GEau - VECTORCQUALCQUAL _BEFO_VALUE] 
je : 
'3; 160 171 
ls 161 1318 
> 16 1714 2! SINCE 
ls 16 1715 ’ 
'3 164 1716 IF .QUALCQUAL_SINC] AND NOT .QUALCQUAL_SINC_BACK] 
; 165 1717 THEN 
: 169 1319 BEGIN DATEL! LSSU .VECTORCQUALCQUAL_SINC_VALUE], 1] THEN RETURN FALSE; 
4 Hy 1730 IF :EREDATELJ EQLU Rath Sg QUAL"SINC"VALUEJ, 13 AND CREDATELOD L§su - VECTORCQUAL CQUAL_SINC_VALUE J 
13 e 
: 170 17 ¢ 
ig 171 17 
- 178 1726 ' EXCLUDE 
a... OF 1725 ; 
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a pernet file 18.58 -1984 AX-11 Bliss-32 V4.0-74 P 5 
CTL_FILE = slant file from journal 14-Sep-1986 99: 48: 9g BACKUP. SRCILISTJOUR-83 37 | 2 (3) 


{re QUAL COUAL aEXCLI 


rw 
mee 


NO 


EXCL: REF BBLOCK; 


EXCL = tag ty EXCL_LISTI; 
WHIL CL “po 


a oS Soe 


AUEWN OO 


EX 
IN 
MATCH(.NAME, aap Paeelahe aaa THEN RETURN FALSE; 
L = ~EXCLOQUAL_NEXT 


BEGIN 
LOCAL 
SELE REF BBLOCK; 


i = ,QUALCQUAL_SELE_LISTJ; 


BEGIN 
wees 1 ee NEQ 0 DO 
IF MATCH(. NAME, SELECQUAL_SELE_DESC]) THEN EXITLOOP FALSE; 
SELE = .SELECQUAL JNEXTI; 
END 
END 
THEN 


ss RETURN FALSE; 


ee ee ee 
SNS NNN 


PAPAS BE EEE EW 


4 
4 
4 
END; 
t SELECT 
IF . QUALCQUAL_SELE) 
4 
4 
5 
5 
5 
5 
2 
Same 
1€ 


FUN — O OONAUE WN OC OONOUES WN OOO 


TITLE LISTJOUR List a journal file 
-IDENT \v04-000\ 


-PSECT COMMON,NOEXE, OVR,2 
00000 GLOBAL _BASE 
#0000 FREE LIST: 
00008 INPUT WAIT: 
00010 REREAD_WALT: 
00018 OUTPUT_WAIT: 

-BLKB 
00020 JPI_UIC:.BLKB 


ro oma 2 


List a nal file 16-5¢ Sep-19 AX-11 Bliss-32 V4.0-74 P 
SEL Ect. TLE. - select file from journal ma 90: 48: 4 BACKUP. SRC Siier oun .68351 — (38 


00024 JPI_USERNAME : 
00030 JP1_DATE: 
-BLKB 
00038 JPI_NODE DESC: 
00040 yPl =CURPRIV: 
00048 SYI_VERSION: 


0004C S$ BLKB 
00050 aus? SHOL LIST: 


00058 nusv_crcigs 
00098 RWSV_AUTODIN: 
000D8 RWSV_ FILESET ID: 
-BLKB 
OOOEO RWSV_VOLUME ID: 
OOOEC RWSV_VOL “NUNBER 
OOOEE RWSV_SEG. “NUNBER 
OOOFO RWSV_FILE_NUMBER: 
000F4 RWSV_SAVE aUAL 
OOOF8 RWSV_SAVE_FAB: 
OOOFC RWSV_CHAN: 
00100 RWSV_XOR_BCB: 
00104 RWSV_INSEQ: 
00108 RWSV_IN_SEQ,0: 
0010¢ RWSV_IN KOR, SEQ: 
00110 RWSV_IN HOR RFA: 
00116 RWwSV -LOOKAHEAD: 
00117 RWSV_ xorsi Ze: 
00118 RWSV_IN -EROUP $1 
0011C RWSV_IN_ERRORS: 
0011E ra 
00120 RWSV_IN_ORGERR: 
00128 RUSV_IN_VBNS~ 
-BLKB 


ofr @8F @ @O--— 
Nm 


oo” 
~™m 


ar 


List a 
SELECT 


rf] 
ournal file 16 
ILE = select file from journal 14 


0012C 
00130 
00134 
00138 
0013¢ 
00140 
00144 
00146 
00148 
00149 


0014¢ 
001BC 


001¢4 
001¢6 
001¢8 
001¢9 
OO1CA 
001¢B 
001CC 
00108 
OO1E4 
OOTEC 
0020 
00200 
0020€ 
0020F 
00210 
00210 
00214 


1Sston19¢e 9:33: 
RWSV_IN_VBN_O: 
RWSV_ALLOC: 
RWSV_EOF : 
RWSV_OUT_SEQ: 
RWSV_OUT_VBN: 


LKB 
RWSV_OUT “BLOCK, COUNT: 


RWSV_OUT “ERRORS: 
RWSV_ SEQ. “ERRORS: 


LKB 
RWSV our. “GROUP. COUNT: 


RWSV_PADDING: 


L 
COM_FLAGS: "i 
com, PADDING: 
COM_BUF F “COUNT: 
LKB 

COM_1_SETCOUNT: 

BLK 
COM_O_SETCOUNT: 

-BLKB 
COM_1_STRUCNAME : 

-BLKB 
COM_O_ STRUCNAME 
COM_O _BSADATE: 
ALT_SSNAME : 

LK 

INPUT _FUNC: : 
INPUT avi: 
OUTPUT FUNC: 
FAST_STRUCLEV: 
INPUT_BEG: 
INPUT_CHAN: 
INPUT_FLAGS: 


-BLKB 
COM_VALID syeese 
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00216 
00218 
0021¢ 
00220 


| 

| 

| 
00224 
00228 
oo2z2¢ 


00230 
00234 
00238 
00240 
00248 
00248 
00250 
00258 
00260 
00268 
0026C 
00270 
00290 
00290 
00290 
00294 
0029C 
002A4 
002A6 
002A8 
002A8 
002aC 


2 
Voe-800" SECT PILE = select file from journal Ifoseo-t9 d 99:49: 


INPUT_PADDING: 
INPUT _FAB: 
INPUT_NAM:; 

-BLKB 
INPUT_BCB: 
INPUT_QUAL : 

BLK 
INPUT_BAD: 

BLK 
INPUT BLOCK: 
INPUT MAXBLOCK: 
INPUT MEDIA) 1D: 
INPUT _NAMEDESC: 
INPUT STATBLK: 
INPUT_HDR_BEG: 

.BLKB 
INPUT_CREDATE : 

-BLKB 
INPUT_REVDATE : 
INPUT_EXPDATE : 

-BLK 
INPUT_BAKDATE : 
INPUT _F ILEOWNER: 

-BLK 
INPUT_FILECHAR: 

-BLKB 
INPUT_RECATIR: 
INPUT_HOR END: 
INPUT_END: 
INPUT_PROC LIST: 
IRPUT PLACEMENT : 
INPUT_VBN List: 
IwuT PLACE LEN: 
INPUT _PADDING_2: 
OUTPUT BEG: 
OUTPUT_CHAN: 
OUTPUT_FLAGS: 
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ay 


ournal file 


List a 
SELECT_FILE = select file from journal 


if 
Sep-1984 
16-$e0-198 9: 48: 
-BLKB 
O02AE OUTPUT PADDING: 
00280 OUTPUT_FAB: 
00284 OUTPUT NAR: 
00288 ouTPUT_BC ‘ 
0028¢ OUTPUT -0UAL : 
002C0 ouTPuUT BAD: : 
002¢4 OUTPUT BLOCK: 
002¢8 OUTPUT -MAXBLOCK: 
002cC OUTPUT. -PEVGEOM: 
002D4 ouTPUT -ATTBUF : 
00364 OUTPUT_END: 
-BLKB 
00364 LIST_TOTFILES: 
-BLKB 
00368 LIST TOTS 17E: 
0036C VERIFY_ FAB: 
00370 VERIFY_USE COUNT 
00374 VERIFY QUAL : 
00378 COMPARE Acs: 
0037C FAST_BUFFER: 
-BLKB 
00380 FAST_BUFFER S1zE: 
00384 FAST_RVN: 
00385 FAST_PADDING: 
-BLKB 
00386 DIR_VERLIMIT: 
00388 FAST_VOL_BEG: 
“BLKB 
00388 FAST_IMAP_SIZE: 
0038C FAST_IMAP: 
-BLKB 
00390 FAST_HOR_OFFSET: 
00394 FAST_BOOT LBN: 
00398 FAST_VOL_END: 
-BLKB 
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ite = - setae file from journal 


2 Sep-1 
16-Sep=1 


00398 
0039¢ 
003A0 
003A4 
003A8 
0O3AC 
OO3AE 
00380 
00382 
00383 
00384 
00386 
00388 
0038C 
0030 
003¢4 
0038 


dosee 
B03D4 


00308 
003E0 
003E8 
003€9 
OO3EA 
OO3EB 
OO3EC 
0052C 


JOUR _BUFFER: 
JOUR_DIR: 
-BLKB 
JOUR _HIBLK: 
-BL 
JOUR _EFBLK: 
~BL 
JOUR_INBLK: 
-BLK 
eateatiegl *¢- 
sore camel“ 


JOUR_STRUCT LEV: 


JOUR_ “cout: 
JOUR “REVERSE: 
JOUR_EXSZ: 
JOUR “PADDING. 


LK 
CHKPT HIGH ty 


.BCK 
CHKPT_LOW_ SP: 
CHKPT_STACK: 
CHKPT_VARS: 

.BLKB 
CHKPT_STATUS: 

-BLKB 


-BLKB 
DIR_NAM: -BLKB 
DIR-DEV_DESC: 


DIR_SEL Hit 
DIR_SEL_NTV: 
DIR_STRUCLEV: 
DIR_LEVELS: 
DIR_FLAGS: 
DIR_ STATUS: 
DIR_ STRING: 
DIR_STACK: , 


LK 
00790 DIR_SP: “BLKB 


3Be 99:58:58 
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uns 


0c 


08 
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if 2 


1eo$ep=19ee 19:58:98 


00794 DIR_SEL_LATEST: 


8079 

0078C 
007C0 
007¢4 
007¢8 
007CC 
00700 


07D 
081 


0081C 
00820 
00824 
00828 
0082C 
00834 
00838 
00840 
00848 


001C 00000 


54 000000006 
2 0000000' 


gf 


A3 


9 90009 
F1 00010 


-BLK 
DIR_END: ~BLK 
DIR-SCANLIMIT: 


twput atin” 
OUTPUT mits 
CURRENT itt: 
CURRENT in 
CURRENT “eh 
ACL_F 1B Rit 


LKB 
ACL_FIB: “BLKB 
ACLS “LENGTH: 


act purréee” 

CRYP_IN_ CONTEXT: 
CRYP_OU_ eure at: 
CRYP_DA “Oeutear: 


K 
CRYP_ DATA_ENCIV: 


CRYP DATA CODE: 
CRYP DATA KEY: 
CRYP DATA 1V: 
CRYP DATA CKSM: 


-EXTRN 
«PSECT 
SELECT _FILE: 
RD 


- 


> @oeonren ss 2 ep om rR RFF RH 


MATCH, OPEN JOURNA 
CLOSE JOURNAL 


READ _ JOURNAL 
LISTZFAO, LIST_E 


CODE .NOWRT,2 

Save R2,R3,R4 

MATCH, R4& 

QUAL+8, R3 

#2, QUAL+8, 1$ 
QUA L+8. 1$ 

CREDAT 

gO) e suaL+20 


$ 
(RO), QUAL+16 
6$ 


AX-11 Bliss-32_V4.0-7 
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roe 


RE sss sss sss seems . - 
Bee Ge Be Se Se Oe Se Oe Oe Oe Os Oe He He He He Oe Oe Oe Oe Oe Oe Oe Oe OB a a a a a 
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/LIST List a journal file :10: AX-11 Bliss-32 V4.0-74 Pp. 
“0G-000" sete? PPLE - select file from journal 14-Sep-1984 99:39:98 BACKUP. SRC List yOUs.0$ 31 Pus 8 
1 A 4 €1 1$: Bal #4, QUAL+13, 2$ : 171 
| 18 08 A os BBS #5 QUALI 3: 38 Roe 
5 08 AC D MOVL  CREDATE, R “1719 
| 1c OA A : CMPL ©=«-_-«& (RO), QUAL +36 : 
4 f BLSSU $ 3 
| 0 le 4 BNEQ $ : 1720 
18 A3 i) 4 CMPL (RO), QUAL +32 : 
| 1F 0004 BLSSU-6$ : 
17 01 A 4 £1 00048 2%: BBC #4, QUAL*9, 4$ : 17 
5 28 AS 9 40 MOVL  QUAL#48, EXCL : 17 
11,1 | 3$: BEQL 4% : 17 
4 A2 OF 00 PUSHAB 4(EXCL) + 1735 
4 AC DD § PUSHL N. : 
4 9 Fe 005 CALLS #2, MATCH ; 
1 E8 0005¢ BLBS . : 
2 62 DO 0005F MOVL (EXCL), EXCL : 17 
ED 11 00062 BRB 3 : 173 
1A 0S a3 ; E1 00064 4$: BBC #3, QUAL+13, 7$ + 174 
52 3c C«A 09 0069 MOVL  QUAL+68, SELE : 1769 
11 13 00060 5$: BEQL + 1752 
06 A2 OF O06F PUSHAB 4(SELE) > 1754 
04 AC DD 000 é PUSHL NAM : 
64 98 Fe 007 CALLS #2, MATCH ; 
08 50 €8 00078 BLES =e ; 
52 62 DO 00078 MOVL  (SELE), SELE + 1755 
ED 11 0007E BRB 5$ : 1758 
0 D4 00080 6$: CLRL = RO : 175 
04 0008 RET : 
50 01 00 90083 7$: MOVL #1, RO + 1764 
04 00086 RET : 


; Routine Size: 135 bytes, Routine Base: CODE + 0000 


a 


co 
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LIST List a journal file 18-56 -1984 00:10: AX-11 Bliss-32 V4.0-74 P 13 
boson" LIST JOURNAL = a journal List routine 12-808= 1382 90:49:98 EBACKUPSRe LISTJOUR.B32;1 a (4) 
; 14 1765 1 ZSBTTL "LIST JOURNAL = main journal List routine’ 
3 \5 1766 | GLOBAL ROUTINE LIST_JOURNAL: NOVALUE= 
2 ie Bie 
: 219 170 1 | FUNCTIONAL DESCRIPTION: 
3 , Ire : This routine is the driver for Listing of a journal file. 
; é 1398 1 i INPUT PARAMETERS: 
ay 71:8 | eh 
3 225 1776 1 | IMPLICIT INPUTS: 
2 ini 
: 228 1338 1 | OUTPUT PARAMETERS: 
Boba SR | ile 
: 231 178 1 | IMPLICIT OUTPUTS: 
aan si 
: 3 1785 1! ROUTINE VALUE: 
: 3 1789 i — 
> 237 1788 1 | SIDE EFFECTS: 
: 8 1789 1! NONE 
: 9 1790 1! 
. ee oo 
: 4g 1798 BEGIN 
+ 26 1794 LITERAL 
: 44 1795 STR_LENGTH = ZCHARCOUNT(' file header ones 
$ et? 1 BUFFER_LENGTH = BJLSC_DIR_LEN + BJLSS_FILENAME + STR_LENGTH ; 
s Sef 1799 3 LOCAL 
: 249 1800 STR: LONG INITIAL(UPLIT BYTE (" file header only')) 
; 250 1801 § FAB: LOCK ! Pointer to FAB fer journal tile 
: 331 1808 BUFFER: BBLOCKCBUFFER_LENGTH], ! Record buffer 
3 2¢ 180 SSNAME_LEN: LONG INITIAL 0), ' Length of SSNAME 
3; 25 1804 SSNAME: BBLOCKCBJL$C_SSNAME_LENJ, ' SSNAME buffer 
3 254 1805 VOLUME : BBLOCKCBJL$C"VOLUME“LENJ, ' VOLUME buffer 
; $39 1806 DIR_LEN: LONG INITIAL™(O) , ' Length of DIRECTORY 
; 256 1807 DIRECTORY: BBLOCKCBJL$C_DIR_LENJ, ' DIRECTORY buffer 
: 257 1908 CHANGE, T True if SSNAME or VOLUME changed 
:; 258 180 PSAREA: VECTORCPS$SIZEJ; ! Impure area 
: 259 1810 GLOBAL REGISTER ; 
; 260 1811 P$ = 11: REF VECTOR; ! Impure area base register 
i $83 1818 
; 4 ale Initialize impure area. 
: 265 1816 P$ = PSAREA; 
: 26 181 Cist_besctos = LIST_SIZE; 
; 2 1818 LISTIDESCCL1] = _LIST_BUFFER; 
: $08 1890 
: 0 1821 ! Do the Listing. 


LIST List a 
Lbesoob” LIST_J 
; en 1 

$ ie 1 § 

y 7 1824 
: 276 1825 

. ie 
> e7 1828 

; 278 P 1829 

; 279 P 1830 

3 80 P 1831 

. ee: 
: Bg 18 4 

: $8e 1880 

: Ske 1839 
3 87 1838 

3 88 1839 

3; 289 + 98 

: 290 1841 

> 291 184¢ 

; 2 184 

; 9 1844 

: 294 1845 

3 95 1846 4 
3 2% 1847 4 
: 97 1848 4 
3 98 1849 4 
3 99 1850 4 
3 00 1851 4 
3 01 1836 5 
3 0 1853 5 
; 3 1854 5 
3 04 1855 5§ 
3 05 1856 4 
; 306 1857 3 
3 $05 1858 

3 08 1859 ; 
5 09 1860 

: 310 1861 4 
3 11 1306 4 
$ 12 1865 4 
3 13 1864 4 
: 314 1865 4 
: 315 1866 4 
: 316 1867 3 
: 317 1868 

3 18 1968 5 
3; 3519 1870 4 
on. 
; 1 

. 
: 4 1875 4 
: 5 1976 4 
: ‘ 1877 4 
s 3 1878 4 


PERE ea See 


RNAL Me = journal List routine 122868718 r 99:39:98 


! 
OPEN_JOURNAL (FALSE, FALSE); 


H Heading. 


FAB = ,QUALCQUAL_JOUR FC); 


FAO_("Journal file !AB_on !%D', 
-BBLOCKEF AB FC_NAMJ, $B_RSLI, 
ae FABLFC_NAMJ, NAMSL_RSAJ, 

EOL_(); 


} Read all records of the journal file to produce the Listing. 


CHANGE = FALSE; 
WHILE READ_JOURNAL (BUFFER) DO 


CAGE PTEMB ASS HVE FROM BJLSK_SSNAME TO BJLSK_FILE OF 


CBJLSK 
BEG 


Save the SSNAME record in a local. 
if ,BUFFERCBJLSB_S1ZE1 LEQU BJLSC_SSNAME_LEN+1 


SSNAME J: 
IN 


N UFFERCBJL$B8_SIZE) - 1 


t 


SSNAME_LEN = .B I : 
CHSMOVE(. SSNA E_LEN, BUFFERCBJL$B_DATA], SSNAME); 


CHANG 


END; 
CBJL$K_VOLUME]: 
BEGIN 


: Save the VOLUME reccrd in a local. 
if |, BUFFERCBJL$8_S1ZE EQLU BJLSC_VOLUME_LEN+1 


AX-11 Bliss-32_ V4.0-7 
BACKUP. SRCIJLISTJOUR.B 


BEGIN 
CHSMOVE (BULSC_VOLUME _LEN, BUFFERCBJL$B_DATA), VOLUME); 
CHANGE = TRUE; 


END; 
CBJL$K_DIRECTORY): 
BEGIN 


Save the DIRECTORY record in a local. 


4 
32;1 


eC OO re ee ese —$$—_—__ —_- —_ - -— -——_- ———_ —_—- 


| 
LIST List @ journal file hes -1984 AX-11 Bliss-32 V4.0-7 P 
WOLa08" LIST JOURNAL = main journal List routine 12-Sep-1984 99: 48: 4 BACKUP. SRC (1S1JOUR.B3 31 a (3 
8 1879 4 If .BUFFERCBJL$B_SIZE Q R +1 
9 i Q THEN ” CBJL ® ) LEQu BJLSC_DIR_LEN 
1 1 DIR_LEN = .BUFFERCBJL$B_SIZE | 
é 1888 ? CHSMOVE(.DIR_LEN, BUF FERCBILSB “pata, DIRECTORY); | 
INF 0#252 L1:1879 ; | 
Test expression 3 always true 
88 END; 
2 Bay 
8 CBJLSK_FILE): 
8 abe BEGIN | 
] 890 LOCAL 
0 891 UFF _SIZE 
1 o36 BUFF _FLAGS ; Berock gs ° 
§ 207 NAME _DESC : VECTORE2) ! Descriptor for name string 
4 895 
o? 4] BUFF _SIZE = .BUFFER C BJLSB_SIZE J ; 
$ 898 IF ,JOUR_STRUCT_LEV GTRU BJLSK_LEVEL1 
8 899 THEN 
.) 900 EGIN 
29 st Adjust the name size to remove the flag longword 
3g 905 BUFF_SIZE = .BUFF_SIZE - 4 ; 
22 44 Get the flags longword ( size +1 to skip size field ) 
36 90 BUFF FLAGS = .BUFFER C.BUFF_SIZE+1,0,32,0] ; 
58 90 ELSE 
59 BUFF _FLAGS = 0 ; 


o 
_ 


Assemble the complete name string. 


fun —-o0an 


4 NAME miatiey = BUFFERCO,0,0,0); 
NAME~DESCLOJ = .BUFF_SIZE- 
5 - 1 ' Adjust for size field 
§ + ,DIR_LEN : Add in Girer.cory name Length 
+2; ! Adjust for 


ee ee el ce em ee ee ed ed ed od od od td od 


WDOOODOOOOOOOOOOOOVONOOOVOOVOwO 
yoy oY at ot ot ot ot ot ot ot ot ot ot et et et et et ee et eh hh a al sl et et et et oe ot ot ot nt 


WUINIWINIRONONINONONONUNINS 2 3 


R 

9 

0 CHSCOPY ( 

1 BUFF SIZE -1 

é BUFFER BJL$B_DATA), 

4 BUFFER + BUFFER LENGTH - SUFFERC.DIR_LEN*2,0,0,0), 
5 BUF FERC .DIR_LEN#2,0,0,0)); 

6 CHSMOVE ( 

? .DIR_LEN 

8 DIRECTOR 

9 BUFFERCI ¥ 0,03); 

0 BUFFEREO 0,8.0) = '. 

: BUFFERL.DIR_LEN*1, 5° 8, “P xc"); 


IF .BUFF_FLAGSCBJL$V_HEADONLY) 


r- 


Y 


mM 2 
LIST List a journal file 16-Sep-1984 00:10: AX-11 Bliss-32 v4.0-74 
vbeebob LIST JOURNAL as A journal List routine 12-3 08- 1 3be 99:39:08 EBACKUP. SRe (EST y00R 63951 
3 3 19 4 THEN 
; 1935 BEGIN 
3 5 19 CHSCOPY ( STR_LENGTH, 
: 19 «STR, 
; 38 19 3 zc’ 
; 388 19 BUFFER_LENGTH = .NAME DESO, 
3 89 1940 BYFFERE . NARE pesct02.0 01); 
; 390 1941 NAME_DESCCO] = .NAME_DESCCO] + STR_LENGTH ; 
{399 1908 - 
; B7 Po: ? } Write the name string, if the selection criteria are satisfied. 
3 95 bg 4 IF SELECT_FILE(NAME_DESC, SSNAMECBJL$Q_CREDATE]) 
; 396 1947 & THEN 
4 97 1948 2 BEGIN 
3 98 1949 
; 399 1950 ! If the save set or the volume number has changed since the 
; 400 1951 ' Last Line, write the new information. 
; 401 1326 4 
; 40 195 5 IF . CHANGE 
3; 40 1954 5 THEN 
; 404 1955 6 BEGIN 
; 4605 1228 6 EOL_(); 
3 406 P1957 6 AO ( 
; 407 P 1958 6 "Save set 'AD created on !%D' 
: 408 P1959 6 ~SSNAME_LEN = SBYTEOFFSET(BUL$T_SSNAME), 
; 409 P 1960 6 SSNAME BJLST_SSNAME 
: 410 1961 6 SSNAMECBJL$Q~CREDATE4); 
> 411 196¢ 6 EOL_(); 
; aig P1963 6 FAO ( 
s 61 P 1964 6 "Volume number !UW, volume Label !AD', 
: 616 P 1965 6 . VOLUME CBJL$W_VOLNUMBER), 
: 415 P 1966 6 BJL$S_VOLNAM 
> 416 P 1967 6 (IF .TVOLUMECBJL$T_VOLNAME])<0,8> GTRU XC" ° 
3: 417 P 1968 6 THEN VOLUMECBJC$T_VOLNAME) 
; 418 1969 6 ELSE UPLIT BYTE ("unknown "))); 
3; 419 1970 6 EOL_(); 
: 420 1971 6 CHANGE = FALSE; 
: 421 44.4 5 END; 
; £58 1973 5 
i 4¢ 1974 5 
: 426 1975 2 ! Write the file specification. 
; 425 1976 § 
2. © $ 1977 : FAO_(° 'AS*, NAME_DESC); 
3: 4 1978 EOL" (); 
; 428 1979 4&4 END; 
; 629 1980 END; 
; 4630 1981 
; 431 1oe6 
s 6 4 19 CINRANGE, OUTRANGE): 
: 43 19 0; 
: 434 1985 
3; 435 1986 
: 436 198 TES; 
; 637 1988 END; 
: 438 1989 2 CLOSE_JOURNAL (FALSE); 
; 439 1990 END; 


ee I ee 


Ra ne ea i oe eee a ema 


st a journal file 16-Sep-1984 00:10: | AX-11 Bliss-32 V4.0-74 P 17 
ST souRuar = main journal List routine 12-88-1382 90:39:98 EBACKUP  SRe (EST YoUs.633;1 — (4) 


64 61 65 68 20 65 6C 69 $6 20 0087 P.AAA: .ASCII \ file header only\ : 
66 ? 25 2 : fi a f rr if 0098 P.AAB: .ASCII <23>\Journal file 'AD on !%D\ : 
0 74 6 3 6 6 61 53 1 OOBO P.AAC: .ASCII <27>\Save set !AD created on !%D\ : 
Ae eo 0O:8 OO tee noe estas ene ane ca 
e H e Olume number : » volume Label : 3 
6D 75 6C 6F 76 20 2¢ os 38 $3 0008 : 
20 20 20 6€ 33 ér t re gf $2 tats P.AAE: . ASCII \unk \ : 
e ts unknown : 
os 41 21 20 20 20 20 07 OOOFC P.AAF: <ASCII <7>\ !AS\ : 
OFFC 00000 eENTRY LIST AY QURNAL « Save R2,R3,R4,R5,R6,R7,R8,R9,-; 1766 
5E FC28 CE 9E 0000 MOVAB -984(SP), SP : 
5A FF78 CF 9€ 0000 MOVAB P.AAA, STR + 1793. 
59 D4 0000C CLRL § SSNAME_LEN : 
56 D4 4 CLAL DIR_LEN 3 
58 08 AE 9€ 0001 MOVAB PSAREA, P$ + 181 
68 0100 8F 3C 00014 MOVZWL #256, (P$) : 181 
04 AB 08 AB 9E 00019 OVAB. &8(R11), 4(P$) + 181 
7E 7C OOO1E CLRQ = =(SP) + 182 
000000006 00 02 FB 90026 CALLS #2, OPEN_JOURNAL ; 
50 00000000° EF DO 000 OVL  QUAL+52, "FAB : 182 
E D4 0002E CLRL = (SP) : 183 
0098 CO DD 00030 PUSHL  152(FAB) : 
7E 0097 ¢€O 9A 00034 MOVZBL 151(FAB), =(SP) : 
FF57 CF 9F 00039 USHAB P.AAB : | 
000000006 00 04 FB 0003D CALLS #4, LIST_FAO : 
000000006 00 00 FB 00044 CALLS #0, LIST=EOL > 1833. 
57 D4 00048 CLRL «CHANGE : 1833 | 
FE70 CD 9F 0004D 1$ PUSHAB BUFFER : 1839. 
000000006 00 01 FB 00051 CALLS #1, READ_JOURNAL : 
03 50 ES 00058 BLBS RO, 2$ ; 
0140 31 00058 BRW 16$ : 
03 01 FE71 CD BF O00SE 28 CASEB BUFFER+1, #1, #3 > 1841 
0036 0022 000A 00064 3$ «WORD 4$-38.~ : 
fen 3$-- $ 
8$-3$ F 
DF 11 0006C BRB 1$ : 
29 FE70 CD 91 OO06E 4$: CMPB ss BUFFER, #41 : 1850. 
D8 1A 9007 BGTRU 1$ F | 
59 FE70 CD 9A 0007 MOVZBL BUFFER, SSNAME_LEN : 1853. 
59 D7 O007A DECL_  SSNAME_LEN : 
FE48 CD FE72 CD 59 (28 g907¢ MOVC3 SSNAME“LEN, BUFFER+2, SSNAME + 1854 
OF 11 0084 BRB 6$ > 185 
OF FE70 CD 91 00 5$ CMPB = BUFFER, #15 > 186 
CO fF 0088 BNEQ 1$ ; | 
FE38 CD FE72 CD O& 28 0008D MOVC3 #14, BUFFER+2, VOLUME : 1868 
57 01 DO 00095 6$ MOVL #1, CHANGE > 1869 
B3 11 00098 BRB 1$ > 1841. 


po ee ee 


3 
ournal file ib-se -1984 :10: AX-11 Bliss-32 V4.0-74 
eit = main journal List routine 1e-8ep-19 4 90:39:98 EBACKUP-SRe LISTJOUR.832;1 


56 FE70 : oA 0 9A 7$: MOV ZBL BUFFER. DIR_LEN 
| 0110 «CE FE72 CD 3 ¢8 0 al moves DIRILEN, BUFFER+2, DIRECTORY 
51 FE70 CD 98 OAB 8$: MOVZBW BUFFER, BUFF_SIZE 
0101  8F 00000000" fF : 08 chew OuR_SfrucT_CEv, #257 
51 04 AS 00BB SUB #4, BUFF _SIZE 
0 1 3¢ O0BE MOVZWL BUFF_SIZE, RO 
FE71 Cb40 9F 000C PUSHAB BUFFER+ICRO] 
58 i 00 O0¢6 MOVL 9(SP)+, BUFF FLAGS 
| 2 D4 $068 9$: CLRL_ BUFF_FLAGS 
04 ac FE70 cp 9E O0¢D 10$:  MOVAB BUFFER, NAME _DESC+4 
5 1 3C€ 0000 MOVZWL BUFFS R 
6E 01 as4d 4 90006 MOVAB 1CDIR_LENS CROJ, NAME _DESC 
51 6D 9E 00000 MOVAB BUFFER+400, R1 
33 FE72 CD46 H DO0E0 ty BUFFER+2CDIR_LENJ, R2 
51 20 FE72 CD 39 SE OO0E9 MOVCS RO. BUFFER+2, #32, R1, (R2) 
Fe CGE GF aa HP BB BBlry ARNG HFLtEN RECTORY. surrene 
Wien SE RGR 9 bs fy Bur jamued 
s1 o0o00r90 ero fo Se BRIT aang. Brenesap “wOD> ™ 
51 20 6A * nll 2c 00116 MOVCS #17, (STR), #32, R1, @NAME_DESCCROJ 
6E 11 CO OO11E ADDL2 #17, NAME_DESC 
FEG8 CD OF 00121 11$:  PUSHAB SSNAME 
0 AE 9F 00125 PUSHAB NAME_DESC 
FDCF 4 9¢ Fe Oot ge CALLS a. SELECT_FILE 
54 57 £9 00190 BLBC CHANGE, 14$ 
000000006 00 00 FB 00133 CALLS #0, LIST_EOL 
HSS GB GG URE EAR 
reel HF $e SGits | RURMAE. tant tem 
000000006 00 04 FB 00149 CALLS #4, LIST_FAO 
000000006 00 00 £8 00150 CALLS «#0. LIST EOL 
oes 0: Sn 
50 FE38 cD ¥ 00156 MOVAB VOLUME, RO 
so FES OG Bales TRE: SOLAR RGM” 
Oc DD 0016C = PUSHL”—ss #2 
mf BI Ray Pere, ~an 
| 900000006 00 04 FB 0017 CALLS” #4, LIST_FAO 
erate OY ae Soins ES age 
E po 0187 14$: PUSHL SP 
FE6B CF 9F 00189 PUSHAB P.AAF 
| 
| 
\ caienttiiemaiti 


: 


-— 
b> Qo0000000 

00 fo 
NW @OO—Ww 


a 4 ss 
0000000 
nn | O 
&—-@Oo foo 


; Routine Size: 


Lis : 
LIST_JOURNAL = main journal List routine 14-Sep-1984 11:55:5 CBACKUP.SRCILISTJOUR.B32;1 

000000006 00 02 FB 0018D CALLS #2, LIST FAO 

000000006 00 00 FB 00194 CALLS) #0, LIST EOL 

FEAF 31 00198 15$: BRW 1$ 
7E D4 OO19E 168: CLRL -(SP) 
000000006 00 01 FB OO1A0 CALLS #1, CLOSE JOURNAL 
04 001A7 RET 


424 bytes, Routine Base: CODE + 0104 


3 
: @ journal file 1b-sep-1986 00:10:0 VAX-11 Bliss-32 V4.0-74 


m 3 
LIST List a journal file a ep-1984 0 AX-11 Bliss-32 v4.0 P 0 
‘Ye 888" LIST JOURNAL - pe = journal List routine 14- ett f: 38: 9 BACKUP. SRCJLISTJOUR. “633; ;1 0 3 
3; 6461 1991 1 END 
; 442 1992 0 ELUDOM 
E PSECT SUMMARY 
; Name Bytes Attributes 
i COMMON 21246 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, gale ob Seg pat t 
; CODE 684 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
Library Statistics 
; ecsceese Syabel§ cococece Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 . 0 581 00:01.1 
3; Information: 1 
3; Warnings: 0 
: Errors: 0 
é COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:LISTJOUR/OBJ=OBJS$:LISTJOUR MSRC$:LISTJOUR/UPDATE=(ENHS$:LISTJOUR) 
3; Size 559 code + 2249 data bytes 
; Run Time :25. 
3 Elapsed tae dF 1.8 
3; Lines/CPU Min: 5120 
3; Lexemes/CPU-Min: 45974 
; Memory Used: 313 pages 
; Compication Complete 
| 
| 
| 


DIGITAL EQUIPMENT CORPORATION 
CONFIDENTIAL -AND PROPRIETARY 


SE 
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